Delphi Magazine Collection 2001/Delphi Magazine Collection 20001 (2001).iso/DISKS/Issue30/bdeorx/BDEDORX.ZIP/RestUser/USERRES1.dfm/USERRES1.txt

Text File | 1997-12-15 | 3.3 KB | 172 lines

object MainForm: TMainForm
  Left = 194
  Top = 105
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'UserRestructor'
  ClientHeight = 271
  ClientWidth = 420
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Arial'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  OnShow = FormShow
  TextHeight = 15
  object GroupBox1: TGroupBox
    Left = 4
    Top = 4
    Width = 197
    Height = 49
    Caption = ' Alias '
    TabOrder = 0
    object AliasCB: TComboBox
      Left = 12
      Top = 16
      Width = 173
      Height = 23
      Style = csDropDownList
      ItemHeight = 15
      Sorted = True
      TabOrder = 0
      OnChange = AliasCBChange
    end
  end
  object GroupBox2: TGroupBox
    Left = 4
    Top = 56
    Width = 197
    Height = 157
    Caption = ' Directories '
    TabOrder = 1
    object DriveBox1: TDriveComboBox
      Left = 12
      Top = 19
      Width = 173
      Height = 21
      DirList = DirBox1
      TabOrder = 0
    end
    object DirBox1: TDirectoryListBox
      Left = 12
      Top = 47
      Width = 173
      Height = 82
      IntegralHeight = True
      ItemHeight = 16
      TabOrder = 1
    end
  end
  object GroupBox3: TGroupBox
    Left = 204
    Top = 4
    Width = 209
    Height = 157
    Caption = ' Options '
    TabOrder = 2
    object Bevel1: TBevel
      Left = 1
      Top = 124
      Width = 207
      Height = 17
      Shape = bsTopLine
    end
    object TblCreateCB: TCheckBox
      Left = 8
      Top = 38
      Width = 181
      Height = 17
      Caption = 'create tables if not existing'
      State = cbChecked
      TabOrder = 0
    end
    object IndexCB: TCheckBox
      Left = 8
      Top = 58
      Width = 150
      Height = 17
      Caption = 'create indices'
      State = cbChecked
      TabOrder = 1
    end
    object DeleteCB: TCheckBox
      Left = 8
      Top = 18
      Width = 189
      Height = 17
      Caption = 'delete def-files after processing'
      TabOrder = 2
    end
    object ValcheckCB: TCheckBox
      Left = 8
      Top = 98
      Width = 150
      Height = 17
      Caption = 'create ValChecks'
      TabOrder = 3
      OnClick = ValcheckCBClick
    end
    object RefIntCB: TCheckBox
      Left = 8
      Top = 78
      Width = 150
      Height = 17
      Caption = 'create RefIntChecks'
      TabOrder = 4
    end
  end
  object DoItBtn: TButton
    Left = 252
    Top = 180
    Width = 110
    Height = 25
    Caption = 'DoIt!'
    TabOrder = 3
    OnClick = DoItBtnClick
  end
  object Panel1: TPanel
    Left = 6
    Top = 244
    Width = 406
    Height = 19
    Alignment = taLeftJustify
    BevelOuter = bvLowered
    Caption = 'Idle...'
    TabOrder = 4
  end
  object Panel2: TPanel
    Left = 6
    Top = 224
    Width = 406
    Height = 19
    BevelOuter = bvLowered
    Caption = 'Panel2'
    TabOrder = 5
  end
  object IdxCB: TCheckBox
    Left = 212
    Top = 136
    Width = 97
    Height = 17
    Hint = 'process indices only'#13'(for '#39'Index out of date'#39' recovery)'
    Caption = ' indices only'
    TabOrder = 6
    OnClick = IdxCBClick
  end
  object RestTbl: TPx7Table
    DatabaseName = 'RestBase'
    Exclusive = True
    TableName = 'ugu'
    AutoSaveChanges = True
    Left = 352
    Top = 8
  end
  object RestDB: TDatabase
    DatabaseName = 'RestBase'
    DriverName = 'STANDARD'
    Left = 320
    Top = 8
  end
end